/*DECLARAÇÃO DAS VARIAVEIS*/
DEFINE VARIABLE pret       AS INTEGER.



/*FUNÇÃO PARA ABRIR A PORTA*/
RUN ECF_AbrePortaSerial(OUTPUT pret).
/*MESSAGE pret
    VIEW-AS ALERT-BOX INFO BUTTONS OK.*/
IF pret = 1 THEN DO:
    MESSAGE "Porta aberta"/*MENSAGEM INFORMATIVA PARA CONFIRMAR QUE FOI ABERTA A PORTA*/
        VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.



/*FUNÇÃO PARA IMPRESSÃO DA LEITURA X*/
RUN ECF_LeituraX(OUTPUT pret).
MESSAGE pret
    VIEW-AS ALERT-BOX INFO BUTTONS OK.




/*FUNÇÃO PARA FECHAR A PORTA*/
RUN ECF_FechaPortaSerial(OUTPUT pret).
/*MESSAGE pret
    VIEW-AS ALERT-BOX INFO BUTTONS OK.*/
IF pret = 1 THEN DO:
    MESSAGE "Porta fechada"/*MENSAGEM INFORMATIVA PARA CONFIRMAR QUE FOI FECHADA A PORTA*/
        VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.



/*BLOCO DE PROCEDURES*/
PROCEDURE ECF_AbrePortaSerial EXTERNAL "c:\sweda\convecf.dll" STDCALL PERSISTENT.
  DEFINE RETURN PARAMETER pret AS LONG.
END.

PROCEDURE ECF_FechaPortaSerial EXTERNAL "c:\sweda\convecf.dll" STDCALL.
  DEFINE RETURN PARAMETER pret AS LONG.
END.

PROCEDURE ECF_LeituraX EXTERNAL "c:\sweda\convecf.dll" STDCALL.
  DEFINE RETURN PARAMETER pret AS LONG.
END.

